home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / italia / atapipnp.lha / atapi_pnp / Install.Deutsch < prev    next >
Text File  |  1996-01-16  |  16KB  |  594 lines
  1. ; ************************************************
  2. ; *
  3. ; * $VER: Install-ATAPI PnP v1.00 (07.09.95)
  4. ; *
  5. ; * Installation for Atapi Package v 1.00
  6. ; *
  7. ; * Copyright © 1995 by Georg Campana
  8. ; *
  9. ; *    -------   G E R M A N    SCRIPT    --------
  10. ; *
  11. ; ************************************************
  12.  
  13. ;/// Variabili
  14. ; ****************************
  15. ;       Variabili
  16. ; ****************************
  17. ;
  18. (set DemoVersion        1) ; Demo Version
  19. (set ProductName        "ATAPI PnP"  )  ; product name
  20. (set ProductBaseName    "Atapi PnP")                    ; product base name
  21. (set VersionNum         "1.00 ")                     ; product version number
  22.  
  23. (set OSVersion          (/ (getversion) 65536))
  24. (set PctDone            0)
  25.  
  26. (set CPUOpts            0)    ; 0=68000,68010; 1=68020,68030,68040
  27.  
  28. (makeassign "CDPLUSPLUS" "" (safe))
  29.  
  30. (set Disk1Name                  "CDPLUSPLUS:")
  31.  
  32. (set MemSpace 1024)   ; 1K minimo di spazio necessario su disco
  33.  
  34. ;///
  35.  
  36. ;/// Proc setPkgOPts
  37. (procedure setPkgOpts
  38. ;
  39. ; ****************************
  40. ; * Wich Parts
  41. ; ****************************
  42. ;
  43.   (
  44.         (set PkgOpts
  45.                 (askoptions
  46.                         (prompt
  47.                            "Suche aus was Du vom Package"
  48.                            (" %s installieren willst" ProductName)
  49.                         )
  50.                         (help
  51.                                 "Hier kannst Du aussuchen welche Teile (Modules) Du vom"
  52.                                 (" Package %s installieren willst.\n" ProductName)
  53.                                 "\n"
  54.                                 "*** Atapi Device Driver\n"
  55.                                 "Hiermit wird der wichtige Device-Treiber"
  56.                                 " (cd.device ) ins Verzeichnis Devs: kopiert (Fundamental)\n"
  57.                                 "\n"
  58.                                 "*** CDplusplusFS\n"
  59.                                 "Mit dieser Option wird das spezielle Filesystem"
  60.                                 " der CD++ ins Verzeichnis L: kopiert (ratbar).\n"
  61.                                 "\n"
  62.                                 "*** MAP-Mini Atapi Player\n"
  63.                                 "Mit dieser Option wird der Mini Player"
  64.                                 " für CD-Audio ins Verzeichnis Utilities kopiert.\n"
  65.                                 "\n"
  66.                                 "*** TRKDownLoad Track-Downloader\n"
  67.                                 "Mit dieser Option wird das Program TRKDownload"
  68.                                 " (fürs Download von CD-Spuren) in Utilities kopiert.\n"
  69.                                 "\n"
  70.                                 "*** PlayCDXL\n"
  71.                                 "Mit dieser Option wird PlayCDXL ( ein Program"
  72.                                 " fürs Abspielen von CDXL Files ) in Utilities kopiert.\n"
  73.                                 "\n"
  74.                                 @askoptions-help
  75.                         )
  76.                         (choices
  77.                                 ; bit position 0 -- todo & 1
  78.                                 ;
  79.                                 "Atapi Device Driver          (16 Kbytes)"
  80.  
  81.                                 ; bit position 1 -- todo & 2
  82.                                 ;
  83.                                 "CDplusplusFS - CD Filesystem (23 Kbytes)"
  84.  
  85.                                 ; bit position 2 -- todo & 4
  86.                                 ;
  87.                                 "MAP- Mini Atapi Player       ( 9 Kbytes)"
  88.  
  89.                                 ; bit position 3 -- todo & 8
  90.                                 ;
  91.                                 "TRKDownLoad- Track DownLoader(15 Kbytes)"
  92.  
  93.                                 ; bit position 4 -- todo & 16
  94.                                 ;
  95.                                 "PlayCDXL - Player Film CDXL  (30 Kbytes)"
  96.  
  97.                         )
  98.                 )
  99.         )
  100.   )
  101. )
  102. ;///
  103.  
  104. ;/// Proc setDirPath
  105.  
  106. (procedure setDirPath
  107. ;
  108. ; ****************************
  109. ; * Ask the user for a directory name.
  110. ; ****************************
  111. ;
  112. ; these variables must be defined before calling this procedure:
  113. ;    DirPath
  114. ;
  115. ; this procedure returns the selected directory in DirPath
  116. ;
  117.    (
  118.  
  119.        (set DirPath
  120.                (askdir
  121.                        (prompt ("Wo soll das Package installiert werden     ( Normalerweise SYS: )" )
  122.  
  123.                        )
  124.                        (help   "Atapi Plug'n Play wird in das ausgesuchte Verzeichnis"
  125.                                " Installiert.\n"
  126.                                "Wenn Du es in eine Diskette installieren möchtest"
  127.                                " dann stecke diese in den Drive und suche Sie aus"
  128.                                " der Liste aus.\n"
  129.                                "\n"
  130.                                @askdir-help
  131.                        )
  132.                        (disk)
  133.                        (default "SYS:")
  134.                )
  135.        )
  136.  
  137.  
  138.  
  139.    )
  140. )
  141. ;///
  142.  
  143. ;/// Proc AskFsIcon
  144. ;
  145. ;
  146. (procedure AskFsIcon
  147. ;
  148. ; This procedure ask of wich cd Icon you want to install with wich Name
  149. ; It requires initialization of variables:
  150. ;
  151. ; In "DefaultIcon" ci deve essere quella accesa di default
  152. ; 
  153. ; Ridà in "IconChoose" qual icona
  154. ; 0 nessuna - 1 AmiCDFilesystem
  155. ; 2 AmiCDFS - 3 CDfilesystem - 4 CDplusplusFS
  156. ;
  157.   (
  158.     (set IconChoose
  159.      
  160.            (askchoice
  161.                 (prompt "Suche aus,für welches CD-Filesystem du ein Piktogram installieren möchtest")
  162.                 (help
  163.                         "Hier kannst du aussuchen für welches Dateinsystem"
  164.                         " Atapi Plug'n Play Installiert werden soll.\n"
  165.                         "Hast Du schon CDplusplusFS installiert dann suche am besten"
  166.                         " diese Möglichkeit aus.\n"
  167.                         "\n"
  168.                         "Sollte Dein CD-filesystem nicht in der Liste"
  169.                         " vorkommen dann suche -Keines- aus , und"
  170.                         " modifizier später die Tooltypes im"
  171.                         " Piktogram :\n"
  172.                         "Device wird\nDevice=cd.device\n"
  173.                         "und Unit wird\nUnit=0\n\n"
  174.                         @askchoice-help
  175.                 )
  176.                 (choices
  177.                         "-Keines"
  178.                         "-AmiCDFileSystem - by Nicola Salmoria"
  179.                         "-cdrom-handler   - by Frank Munkert"
  180.                         "-CDFileSystem    - by CBM Commodore"
  181.                         "-CDplusplusFS    - by CD++"
  182.                 )
  183.                 (default DefaultIcon)
  184.            )
  185.     )
  186.   )
  187. )
  188. ;///
  189.  
  190. ;/// Proc GetDevName
  191. ;
  192. ;  in DevName si ritrova il nome da usare per l'icona
  193. ;
  194.  
  195.  
  196. (procedure GetDevName
  197.    
  198.    (
  199.      (set DevName
  200.            (askstring
  201.                      (prompt "Schreibe hier den Namen für das installierte CD-Laufwerk ohne den Doppelpunkt\nz.B. CD0")
  202.                      (help
  203.                              "Der ausgesuchte Name wird der"
  204.                              "  Name des Devices\n"
  205.                              "Es ist ratbar keinen langen Namen"
  206.                              " auszusucheni\n"
  207.                              "\nAm besten CD0 oder CD1 usw."
  208.                              " weil viele Programe diesen"
  209.                              " Namen suchen\n"
  210.                      )
  211.                      (default "CD0")
  212.            )
  213.      )
  214.    )
  215. )
  216. ;///
  217.  
  218. ;/// Proc AskAutoMount
  219. ;
  220. ;
  221. (procedure AskAutoMount
  222. ;
  223. ; Chiede se l'icona deve essere inserita nel devs Dosdrivers o nel
  224. ; storage dosdrivers
  225. ;
  226.   (
  227.     (set AutoMount
  228.      
  229.            (askbool
  230.                 (prompt "Möchtest Du daß das Laufwerk bei jedem Computerstart"
  231.                         " automatisch angeschaltet wird (Mount) ,"
  232.                         " statt manuell per-Mauseklick ?"
  233.                 )
  234.                 (help
  235.                         "Wenn Du positiv antwortest wird das Piktogram"
  236.                         " des Devices in das Verzeichnis:\n"
  237.                         "Devs:Dosdrivers kopiert\n"
  238.                         "Bei jedem Start wird so auch automatisch das"
  239.                         " CD-Laufwerk gestarted\n\n"
  240.                         "Ansonsten wird es in: Storage:DosDrivers\n"
  241.                         " kopiert , und Du mußt per-Hand auf das"
  242.                         " Piktogram klicken um daß Laufwerk zu -Mounten-"
  243.                 )
  244.                 (choices
  245.                         "Automatisch beim Start"
  246.                         "Nein , manuell"
  247.                 )
  248.                 (default 1)
  249.            )
  250.     )
  251.   )
  252. )
  253. ;///
  254.  
  255.  
  256. ; *************************************************************************
  257. ; *                         ACTUAL START OF SCRIPT
  258. ; *
  259. ; * Ask all questions for the user now, do all of the work later.
  260. ; *************************************************************************
  261. ;
  262. ;/// MAIN SCRIPT
  263. (onerror
  264.  
  265. )
  266. ; ****************************
  267. ;  Check for OS Version
  268. ; ****************************
  269.  
  270. (if (= DemoVersion 1)
  271.     (message "\n" "\n"
  272.              "Achtung: Das hier ist eine DEMO Version\n"
  273.              "vom Program  Atapi PnP !\n"
  274.              "DU KANNST ES JEDEM KOMPLETT\n"
  275.              "WEITERGEBEN (ausser den Crakker)" "\n"
  276.              "\n" "\n" "\n"
  277.              "Atapi Plug'n Play is Copyright by \n"
  278.              "Georg Campana & Marco Campinoti ©1994"
  279.              (help "Wenn Du die registrierte Version erhalten möchtest dann lies das Handbuch oder rufe 0039/565/850621 an")
  280.     )
  281.     (message "\n" "\n"
  282.              "Achtung: Das hier ist eine Registrierte\n"
  283.              "Version Atapi PnP Package!\n"
  284.              "ES IST VERBOTEN IRGENDEINE DATEI\n"
  285.              "AUS DIESER DISKETTE ANDEREN\nZU LIEFERN" "\n"
  286.              "( Die Files haben Signs )\n" "\n" "\n"
  287.              "Atapi Plug'n Play is Copyright by \n"
  288.              "Georg Campana & Marco Campinoti ©1994"
  289.              (help "Um Freunde zu registrieren rufe : ++39/565/850621 an" )
  290.     )
  291.  
  292. )
  293.  
  294.  
  295. ; ****************************
  296. ; ****************************
  297. ;
  298.  
  299. (set DirPath "SYS:")
  300.  
  301. (setDirPath)
  302.  
  303. (set @default-dest DirPath)
  304.  
  305. (set devdest  (tackon @default-dest "Devs"))
  306. (set fsdest   (tackon @default-dest "L"))
  307. (set utildest (tackon @default-dest "Utilities"))
  308.  
  309.  
  310. (setPkgOpts)
  311.  
  312. (set DefaultIcon 0)
  313.  
  314. (if (= (exists (tackon fsdest "AmiCDFileSystem")) 1)
  315.     (set DefaultIcon 1)
  316. )
  317.  
  318. (if (= (exists (tackon fsdest "cdrom-handler")) 1)
  319.     (set DefaultIcon 2)
  320. )
  321.  
  322. (if (= (exists (tackon fsdest "CDFileSystem")) 1)
  323.     (set DefaultIcon 3)
  324. )
  325.  
  326. (if (IN PkgOpts 1)
  327.     (set DefaultIcon 4)
  328. )
  329.  
  330. (AskFsIcon)
  331.  
  332. (select IconChoose
  333.    (set FsName 0)
  334.    (set FsName "AmiCDFS")
  335.    (set FsName "AmiCDHandler")
  336.    (set FsName "CbmCDFS")
  337.    (set FsName "CDplusplusFS")
  338. )
  339.  
  340.  
  341. (set AutoMount 1)
  342. (set DevName "CD0")
  343.  
  344. (if (> @user-level 1)
  345.  
  346.     (if (<> IconChoose 0)
  347.         (
  348.          (GetDevName)
  349.          (AskAutoMount)
  350.         )
  351.     )
  352. )
  353.  
  354. (if (= AutoMount 1)
  355.     (set Icondest  (tackon @default-dest "Devs"))
  356.     (set Icondest  (tackon @default-dest "Storage"))
  357. )
  358.  
  359.  
  360.  
  361.  
  362.  
  363. (if (IN PkgOpts 0)
  364.     (set MemSpace (+ MemSpace 16000))
  365. )
  366. (if (IN PkgOpts 1)
  367.     (set MemSpace (+ MemSpace 23000))
  368. )
  369. (if (IN PkgOpts 2)
  370.     (set MemSpace (+ MemSpace  9000))
  371. )
  372. (if (IN PkgOpts 3)
  373.     (set MemSpace (+ MemSpace 30000))
  374. )
  375. (if (IN PkgOpts 4)
  376.     (set MemSpace (+ MemSpace 14000))
  377. )
  378. (if (<> IconChoose )
  379.     (set MemSpace (+ MemSpace 1000))
  380. )
  381.  
  382. (if (< (getdiskspace DirPath) MemSpace)
  383.     (if(> (getdiskspace DirPath) 0)
  384.        (
  385.           (abort "ACHTUNG: Der übrige Speicherplatz\n"
  386.                  ("auf der Platte %s\n" DirPath)
  387.                  ("beträgt nur um %ld bytes\n" (getdiskspace DirPath) )
  388.                  ("und es werden mindestens %ld benötigt\n" MemSpace)
  389.                  "\n"
  390.                  "Du kannst nochmal auf Install klicken\n"
  391.                  "und weniger Utilities aussuchen , oder\n"
  392.                  "unnötige Files von der Ziel-Platte\n"
  393.                  ("%s löschen\n" DirPath)
  394.           )
  395.        )
  396.     )
  397. )
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  
  404.  
  405.  
  406.  
  407.  
  408.  
  409.  
  410.  
  411.  
  412. ; if bit position 0 is on  Installa device
  413. (if (IN PkgOpts 0)
  414.      (
  415.  
  416.         
  417.         (if (< (exists devdest (noreq)) 2)
  418.  
  419.             (makedir devdest
  420.                (prompt "Neues Verzeichnis -Devs-")
  421.                (infos)
  422.             )
  423.         )
  424.  
  425.  
  426.         (copylib
  427.             (prompt "Installiere Device Driver")
  428.             (source (tackon Disk1Name "devs/cd.device"))
  429.             (dest devdest)
  430.             (optional force)
  431.         )
  432.         
  433.  
  434.      )
  435. )
  436. ; if bit position 1 is on Installa FileSystem
  437. (if (IN PkgOpts 1)
  438.      (
  439.  
  440.         
  441.         (if (< (exists fsdest (noreq)) 2)
  442.  
  443.             (makedir fsdest
  444.                (prompt "Neues Verzeichnis -L-")
  445.             )
  446.         )
  447.  
  448.  
  449.         (copylib
  450.             (prompt "Installiere FileSystem von CD++")
  451.             (source (tackon Disk1Name "l/CDplusplusFS"))
  452.             (dest fsdest)
  453.             (optional force)
  454.         )
  455.         
  456.  
  457.      )
  458. )
  459.  
  460. ; if bit position 2 is on Installa MAP
  461. (if (IN PkgOpts 2)
  462.      (
  463.  
  464.         
  465.         (if (< (exists utildest (noreq)) 2)
  466.  
  467.             (makedir utildest
  468.                (prompt "Neues Verzeichnis -Utilities-")
  469.                (infos)
  470.             )
  471.         )
  472.  
  473.  
  474.         (copyfiles
  475.             (prompt "Installiere Mini Atapi Player")
  476.             (source (tackon Disk1Name "utilities/MAP"))
  477.             (dest utildest)
  478.             (infos)
  479.             (optional force)
  480.         )
  481.         
  482.  
  483.      )
  484. )
  485.  
  486. ; if bit position 3 is on Installa TRKDownLoad
  487. (if (IN PkgOpts 3)
  488.      (
  489.  
  490.         
  491.         (if (< (exists utildest (noreq)) 2)
  492.  
  493.             (makedir utildest
  494.                (prompt "Neues Verzeichnis -Utilities-")
  495.                (infos)
  496.             )
  497.         )
  498.  
  499.  
  500.         (copyfiles
  501.             (prompt "Installiere TrkDownLoader")
  502.             (source (tackon Disk1Name "utilities/TRKDownLoad"))
  503.             (dest utildest)
  504.             (infos)
  505.             (optional force)
  506.         )
  507.         
  508.  
  509.      )
  510. )
  511.  
  512. ; if bit position 4 is on Installa PlayCDXL
  513. (if (<> DemoVersion 1)
  514.    (if (IN PkgOpts 4)
  515.         (
  516.  
  517.            
  518.            (if (< (exists utildest (noreq)) 2)
  519.  
  520.                (makedir utildest
  521.                   (prompt "Neues Verzeichnis -Utilities-")
  522.                   (infos)
  523.                )
  524.            )
  525.  
  526.  
  527.            (copyfiles
  528.                (prompt "Installiere PlayCDXL")
  529.                (source (tackon Disk1Name "utilities/PlayCDXL"))
  530.                (dest utildest)
  531.                (infos)
  532.                (optional force)
  533.            )
  534.            
  535.  
  536.         )
  537.    )
  538. )
  539. (if (> IconChoose 0)
  540.     (
  541.         (if (< (exists Icondest (noreq)) 2)
  542.  
  543.             (makedir Icondest
  544.                (prompt "Neues Verzeichnis Devs oder Storage")
  545.                (infos)
  546.             )
  547.         )
  548.  
  549.         (set Icondest  (tackon Icondest "Dosdrivers"))
  550.          
  551.         (copyfiles
  552.             (prompt "Installiere Device-Piktogram")
  553.             (source (tackon Disk1Name (tackon "Devs/Storage" FsName)))
  554.             (dest IconDest)
  555.             (newname  DevName)
  556.             (infos)
  557.             (optional force)
  558.         )
  559.  
  560.     
  561.         (if (= AutoMount 1)
  562.             ( message "\n" "\n"
  563.                    "Bei jedem starten des Computers wird\n"
  564.                    "das CD-Laufwerk automatisch ins System\n"
  565.                    "eingebindet !\n"
  566.                    "\n"
  567.                    "Du kannst dieses Verhalten jederzeit verändern\n"
  568.                    ("indem Du das Piktogram %s vom Verzeichnis" DevName)
  569.                    "Devs/Dosdrivers ins Verzeichnis Storage/Dosdrivers\n"
  570.                    "verschiebst\n"
  571.             )
  572.             ( message "\n" "\n"
  573.                    "Du kannst jederzeit das CD-ROM Laufwerk einbinden \n"
  574.                    ("indem du zweimal auf %s\n" DevName)
  575.                    "im Verzeichnis Storage/Dosdrivers klickst\n"
  576.                    "Soll es automatisch eigebunden werden, dann\n"
  577.                    "verschieb das Piktogram ins Verzeichnis Devs/Dosdrivers"
  578.             )
  579.         )
  580.     )
  581.     ( message "\n" "\n"
  582.            "Es wurde kein Piktogram für das\n"
  583.            "CD-ROM Laufwerk ausgesucht .\n"
  584.            "Du mußt es Dir deshalb selber bauen!\n"
  585.            "\n"
  586.            "Du kannst auch nocheinmal auf -Install- klicken\n"
  587.            "und Dir ein CD-Filesystem aussuchen\n"
  588.     )
  589.  
  590. )
  591.  
  592. (exit)
  593. ;///
  594.